home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Intervals / i-direction < prev    next >
Lisp/Scheme  |  1998-10-24  |  487b  |  16 lines
  1. i-direction direction integer
  2.  
  3. u = up
  4. d = down
  5.  
  6. (i-direction '(u d u d u d u d u d u)
  7.                '(1 2 3 4 5 6 7 8 9 10 11))
  8. => (1 -2 3 -4 5 -6 7 -8 9 -10 11)
  9.  
  10. (setq interval
  11.       (i-direction '((u d u d u d u d u d u) (d u d u d u d u d u d ))
  12.                      '((1 2 3 4 5 6 7 8 9 10 11) (1 2 3 4 5 6 7 8 9 10 11))))
  13. => ((1 -2 3 -4 5 -6 7 -8 9 -10 11) (-1 2 -3 4 -5 6 -7 8 -9 10 -11))
  14.  
  15. (i-process 'a 'piano interval)
  16. => ((a b -b c -c d -d e -e f -f g) (f h e i d j c k b l a))